object QuizForm: TQuizForm Left = 452 Top = 79 Width = 435 Height = 155 BorderIcons = [biSystemMenu, biMinimize] Caption = 'Coeli Sky Quiz' Color = clSilver Font.Color = clWindowText Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop Scaled = False ShowHint = True OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnHide = FormHide OnShow = FormShow PixelsPerInch = 125 TextHeight = 16 object StatusPanel1: TPanel Left = 0 Top = 97 Width = 427 Height = 26 Align = alBottom Color = clTeal Font.Color = clLime Font.Height = -17 Font.Name = 'Times New Roman' Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object PageControl1: TPageControl Left = 0 Top = 0 Width = 427 Height = 97 ActivePage = QuizTab Align = alClient TabOrder = 1 object QuizTab: TTabSheet Caption = 'Quiz' object Panel1: TPanel Left = 3 Top = 3 Width = 414 Height = 206 BevelInner = bvRaised BevelOuter = bvLowered ParentColor = True TabOrder = 0 object QBox: TBoxLabel Left = 8 Top = 7 Width = 398 Height = 53 Hint = 'Click here for new question...' Caption = 'Click here for questions!' TextBorder = 2 Font.Color = clYellow Font.Height = -17 Font.Name = 'Times New Roman' Font.Style = [fsBold] Color = 8388672 OnClick = QBoxClick ParentFont = False ParentColor = False end object MultichoiceBox: TComboBox Left = 61 Top = 69 Width = 295 Height = 24 Style = csDropDownList ItemHeight = 16 Sorted = True TabOrder = 0 Visible = False OnChange = MultichoiceBoxChange end end end object Setup: TTabSheet Caption = 'Setup' object ScrollBox1: TScrollBox Left = 0 Top = 0 Width = 419 Height = 66 VertScrollBar.Range = 200 Align = alClient AutoScroll = False BorderStyle = bsNone TabOrder = 0 object Panel2: TPanel Left = 3 Top = 2 Width = 412 Height = 206 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object AnyStarConstel: TCheckBox Left = 20 Top = 11 Width = 226 Height = 17 Caption = 'Point out any star in constellation...' Enabled = False TabOrder = 0 OnClick = AnyStarConstelClick end object PointStarDesig: TCheckBox Left = 20 Top = 45 Width = 264 Height = 17 Caption = 'Point out the star designated...' Enabled = False TabOrder = 1 end object NameCircledStar: TCheckBox Left = 20 Top = 66 Width = 156 Height = 17 Caption = 'Name circled star...' State = cbChecked TabOrder = 2 OnClick = NameCircledStarClick end object NameConstel: TCheckBox Left = 20 Top = 84 Width = 222 Height = 17 Caption = 'Name highlighted constellation...' State = cbChecked TabOrder = 3 OnClick = NameConstelClick end object PointStarNamed: TCheckBox Left = 20 Top = 28 Width = 187 Height = 17 Caption = 'Point out the star named...' State = cbChecked TabOrder = 4 OnClick = PointStarNamedClick end object NewQuizButton: TButton Left = 279 Top = 22 Width = 75 Height = 25 Caption = 'New Quiz' TabOrder = 5 OnClick = NewQuizButtonClick end object InWhichConstel: TCheckBox Left = 21 Top = 108 Width = 234 Height = 17 Caption = 'In which constellation is the star...' Enabled = False TabOrder = 6 end end end end object ScoreTab: TTabSheet Caption = 'Scores' object ScrollBox2: TScrollBox Left = 3 Top = 3 Width = 413 Height = 78 TabOrder = 0 object Panel3: TPanel Left = 0 Top = 0 Width = 409 Height = 74 Align = alClient BevelOuter = bvNone TabOrder = 0 object QList: TComboBox Left = 19 Top = 5 Width = 373 Height = 27 Style = csDropDownList Color = 8580861 Font.Color = clNavy Font.Height = -17 Font.Name = 'Times New Roman' Font.Style = [fsBold] ItemHeight = 0 ParentFont = False Sorted = True TabOrder = 0 end object ClearScoreButton: TButton Left = 38 Top = 39 Width = 133 Height = 20 Caption = 'Clear score list' TabOrder = 1 OnClick = ClearScoreButtonClick end object DeleteScoreButton: TButton Left = 229 Top = 39 Width = 133 Height = 20 Caption = 'Delete selection' TabOrder = 2 OnClick = DeleteScoreButtonClick end end end end object UpgradeTab: TTabSheet Caption = 'Upgrade!' object UpgradeEdit: TRichEdit Left = 0 Top = 0 Width = 419 Height = 66 Align = alClient Color = 8454143 Font.Color = clNavy Font.Height = -14 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Lines.Strings = ( '' 'Sky Quiz is available separately or as an ' 'integral part of Stella 2000 Extended Edition.' '' 'Sky Quiz basic costs $29, Color Edition $39' '' 'Registered Stella users can upgrade to Stella 2000 ' 'Extended Edition for just $39 - the package comes with ' 'the integral Sky Quiz Color Edition plus your choice of ' 'either the complete SAO or Hipparcos star catalogs, ' 'accompanied by many extra features and effects.' '' 'Full price of Stella 2000 Extended Edition is $69. The ' 'SAO catalog alone costs $50, so, what with Sky Quiz ' 'Color Edition'#39's $39, your saving could be as ' 'much as an impressive $60!' '' 'The Upgrade tab in the Special Options window is the ' 'place to go to order and find out more. What are you ' 'waiting for!') ParentFont = False ScrollBars = ssVertical TabOrder = 0 end end end object IniOut1: TIniOut FileName = 'STELLA.INI' Items.Strings = ( 'QuizForm;Height;;Dimensions;Quiz form height;1;0' 'AnyStarInConstel;Checked;True;Settings;Quiz any star in constel;' + '1;0' 'NameCircledStar;Checked;True;Settings;Quiz name circled star;1;0' 'NameConstel;Checked;False;Settings;Quiz name constel;1;0' 'PointOutStar;Checked;True;Settings;Quiz point out star;1;0') RegistryRoot = CURRENT_USER Left = 396 Top = 2 end end